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Dieser LEGOR Technic Artikel enthält ein LEGO Interfacekabel zu 


den Computern Commodore 64 und 128 und Gebrauchshinweise. 
Gebrauchshinweise 


Um eine korrekte Verwendung sicherzustellen, wird folgendes 


erläutert: 
A Anschließen des LEGO Interface A. 


B Hinweise zum direkten Ansprechen des LEGO Interface А 
in C64-BASIC und in COMAL 80. 


С Fehlersuche: bei Problemen mit dem Interface und den 
Modellen kann hier nachgesehen werden. 


A Anschließen des LEGO Interface А 
Das Interface wird folgendermaßen angeschlossen: 


1. Der Computer wird ausgeschaltet, um mögliche Beschädigung 


zu vermeiden. 


2. Das Interfacekabel wird an den user-port des Computers 


angeschlossen (vgl. Abb. 1). 


3. Das Interfacekabel wird an das Interface angeschlossen (vgl. Abb. 


4. Пав Netzteil wird an das Interface angeschlossen (vgl. Abb. 2). 
5. Das Netzteil wird ап das Netz angeschlossen. 


6. Der Computer wird eingeschaltet. 


Der rote Stop-Schalter auf dem Interface soll nicht gedrückt sein! 


2). 
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B Hinweise zum direkten Ansprechen des ЕСО Interface A 
in C64-BASIC und іп COMAL 80 


Vorgehensschritte: 


1. Das Herstellen der Datenverbindung vom Computer zum 
LEGO Interface A 


2. Die Programmierung der Ausgánge 0-5 


3. Das Abfragen der Eingänge 6 und 7 


1. Das Herstellen der Datenverbindung vom Computer zum 
LEGO Interface A: 


Zunächst müssen die Programmzeilen des Hilfsprogramms, s. Anhang А, 
in den Computer eingegeben werden. 


Für den weiteren Gebrauch ist es sinnvoll, das Hilfsprogramm auf 
einer Diskette oder einer Kassette zu sichern. Ein Ausdruck mit einem 


Drucker erleichtert die Suche nach eventuellen Eingabefehlern. 


Das Hilfsprogramm besteht aus den folgenden fünf Unterprogrammen: 
- init 

e biton 

S bitoff 

= getbit 


- wait 


init: e 

Das Unterprogramm init stellt die Datenverbindung zum Interface her. 
Hier sind keine Parameter erforderlich. Dieses Unterprogramm muß in 
der ersten Zeile aller Programme zur Steuerung von Modellen aufgerufen 


werden. 


biton: 

Das Unterprogramm biton schaltet einen Ausgang auf dem Interface ein. 
Die Nummer des Ausgangs wird als Parameter übergeben. Im BASIC 
Programm heißt die Variable zur Übergabe des Parameters NUM$. Der 


Parameter muB zwischen 0 und 5 liegen. 


bitoff: 
Das Unterprogramm bitoff schaltet einen Ausgang auf dem Interface aus. 
Für die Nummer des Ausgangs gilt das gleiche wie bei biton. 


getbit: 

Das Unterprogramm getbit liest den Zustand eines Eingangs ab. Die Nummer 
des Eingangs wird als Parameter übergeben. Sie muß 6 oder 7 sein. Im 
BASIC Programm heißt die Variable zur Übergabe dieses Parameters МОМ%. 
Der Zustand des Eingangs wird durch die Variable Ү% wiedergegeben. 


wait: 

Das Unterprogramm wait wartet einige Sekunden. Die Zahl - die Wartezeit 
in Sekunden - wird als Parameter übergeben. Im BASIC Programm heißt die 
Variable zur Übergabe des Parameters TIM$. 


Der Parameter muß positiv und kleiner als 32768 sein. 


Für ein einwandfreies Funktionieren der C64-BASIC Programme muß sorg- 
fältig zwischen den Programmvariablen und den Variablen zur Interface- 
steuerung wie NUM$, Y% und TIM unterschieden werden. 


Programmbeispiele zum Herstellen der Datenverbindung vom Computer 
zum LEGO Interface А: 


Die Datenverbindung zum LECO Interface A wird durch das Eingeben des 
Programmbeispiels іп C64-BASIC bzw. іп COMAL 80 vorbereitet. 


Beispiel C64-BASIC: Kommentar / Erklärung 

10  GOSUB 10000: REM init Herstellung der Datenverbindung 
20 END 

Beispiel COMAL 80: Kommentar / Erklärung 

0010 init Herstellung der Datenverbindung 


0020 END 
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Mit der Tastenfolge "RUN" und der Taste <RETURN> werden die 
Programmbeispiele gestartet. Die Kontrollampen an den Ausgängen 0-5 
erlöschen. Jetzt ist der Computer für die Datenübertragung zum und 
vom Interface startbereit. Bei etwaigen Fehlern muß das eingegebene 
Programmbeispiel überprüft und eventuell die eingegebenen Unter- 
programme mit dem Anhang A verglichen werden. 
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2. Die Programmierung der Ausgänge 0-5 


Programmbeispiele in C64-BASIC bzw. іп COMAL 80: 


Beispiel C64-BASIC: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


Beispiel COMAL 80: 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 


GOSUB 10000: 
NUM$-3 
GOSUB 11000: 
TIM3=4 
GOSUB 14000: 
NUM?3=4 
GOSUB 11000: 
TIM$-2 
GOSUB 14000: 
NUM$-3 
GOSUB 12000: 
TIM$-2 
GOSUB 14000: 
NUM?=4 
GOSUB 12000: 
END 


init 
biton(3) 
wait(4) 
biton(4) 
wait(2) 
bitoff(3) 
wait(2) 
bitoff (4) 
END 


REM INIT 


REM BITON 


REM WAIT 


REM BITON 


REM WAIT 


REM BITOFF 


REM WAIT 


REM BITOFF 


Kommentar / Erklärung 


Herstellung der Datenverbindung 


Schaltet den Ausgang 3 ein 


Wartet 4 Sekunden 


Schaltet den Ausgang ! ein 


Wartet 2 Sekunden 


Schaltet den Ausgang 3 aus 


Wartet 2 Sekunden 


Schaltet den Ausgang 4 aus 


Kommentar / Erklärung 


Herstellung der Datenverbindung 
Schaltet den Ausgang 3 ein 
Wartet 4 Sekunden 

Schaltet den Ausgang 4 ein 
Wartet 2 Sekunden 

Schaltet den Ausgang 3 aus 
Wartet 2 Sekunden 

Schaltet den Ausgang 4 aus 


Bei etwaigen Fehlern muß das eingegebene Programmbeispiel überprüft 


und eventuell die eingegebenen Unterprogramme mit dem Anhang A 


verglichen werden. 
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Wichtiger Hinweis: Die Unterprogramme "biton"/"bitoff" können Ausgänge 
einzeln ein-/ausschalten, ohne den Zustand der anderen Ausgänge zu 
beeinflussen. 

Beispiel einer Anweisungsfolge: 

Einen Ausgang einschalten, warten, einen anderen Ausgang einschalten, 
warten, den ersten Ausgang ausschalten, warten und den zweiten Ausgang 


ausschalten. 


3. Das Abfragen der Eingänge 6 und 7 


Mit den Eingängen 6 und 7 können Signale vom LEGO Optosensor aufge- 
nommen werden. 

Der Optosensor wird an Eingang 6 angeschlossen. Wenn ein gelber LEGO 
Stein dicht vor der ovalen Óffnung des Optosensors hin und herbewegt 
wird, blinkt die grüne Kontrollampe am Eingang gleichzeitig mit der Bewe- 
gung. Jedesmal, wenn die grüne Kontrollampe aufleuchtet, zeigt der 
Computer bei einem geeigneten Programm den Wert 1 an, wenn die grüne 
Lampe erlischt, wird der Wert 0 angezeigt. 


Ein Beispielprogramm in C64-BASIC bzw. COMAL 80, das 100 mal den Zustand 
des Eingangs 6 anzeigt: 


Beispiel C64-BASIC: Kommentar / Erklärung 

10  GOSUB 10000: REM INIT Herstellung der Datenverbindung 
20  NUM$-6 Nummer des Eingangs 

30 МО%-100 Zahl der Durchläufe 


40 FOR X-1 ТО NO% 

50  GOSUB 13000: REM GETBIT Ermittelt den Zustand des Eingangs 6 
60 PRINT Y$ Zeigt den Zustand an 

70 NEXT X 

80 END 


Beispiel COMAL 80: Kommentar/Erklärung 

0010 init Herstellung der Datenverbindung 
0020 Zahl:=100 Zahl der Durchläufe 

0030 FOR X:=1 TO Zahl DO 

0040 PRINT getbit(6) Ermittelt und zeigt den Zustand 
0050 ENDFOR X des Eingangs 6 an 

0060 END 


Bei etwaigen Fehlern muß das eingegebene Programmbeispiel überprüft und 
eventuell die eingegebenen Unterprogramme mit dem Anhang A verglichen 


werden. 


Während des Programmablaufs muß der Sensor 100 mal z. B. in der oben 


beschriebenen Weise aktiviert werden. 


Ein Beispiel zu einem LEGO Modell: 
Vorlage: Ein Modell mit einem Motor, Optosensor und einer Zählscheibe, 
z. B. ein Riesenrad. Der Motor wird an den Ausgang 1, und der Optosensor 


an den Eingang 6 angeschlossen. 


Die Grobeinteilung der Zählscheibe soll zur ovalen Öffnung des Sensors 
hin_gerichtet sein. 


Bei dem folgenden Beispiel wird der Optosensor zum Zählen verwendet. 
Das Programm zählt 24 Wechsel der Hell-Dunkel-Segmente der Zählscheibe, 


also 24 Wechsel des Zustandes am Eingang 6. 
іп den folgenden Programmbeispielen in C64-BASIC bzw. COMAL 80 kann 


das BASIC Programm nur bis zu 3 Wechsel pro Sekunde zählen. Falls 
schneller gezählt werden soll, muß ein Unterprogramm benutzt werden, 
das im Maschinenkode geschrieben ist. 


Beispiel C64-BASIC: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


GOSUB 10000: REM INIT 
NO%=24 

NUM$-6 

GOSUB 13000: REM GETBIT 
QST$-Y$ 

NUM$-1 

GOSUB 11000: REM BITON 
NUM$-6 

FOR 01=1 TO NO$ 

GOSUB 13000: REM GETBIT 
IF Y$-QST$ THEN СОТО 100 
QST$-Y$ 

NEXT QI 

NUM$-1 

GOSUB 12000: REM BITOFF 
END 


Beispiel COMAL 80 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 


init 

biton(1) 

no:=24 

FOR qi:=1 TO no DO 
qst:7getbit(6) 

REPEAT 

UNTIL getbit(6) <> qst 
ENDFOR qi 

bitoff(1) 

END 


Kommentar /Erklárung 

Herstellung der Datenverbindung 
Anzahl der Wechsel 

Ermittelt und speichert den Start- 
zustand des Eingangs 6 

Schaltet den Ausgang 1 ein 

Nummer des Eingangs 

Wartet, bis der Eingang 6 umgeschaltet 
wird 


Zwischenspeicherung des Zustandes 


Schaltet den Ausgang 1 aus 


Kommentar /Erklárung 

Herstellung der Datenverbindung 
Schaltet den Ausgang 1 ein 

Anzahl der Wechsel 
Zwischenspeicherung des Zustandes 


Wartet, bis Eingang 6 umschaltet 


Schaltet den Ausgang 1 aus 


Bei etwaigen Fehlern muß das eingegebene Programmbeispiel überprüft 


und eventuell die eingegebenen Unterprogramme mit dem Anhang A 


verglichen werden. 
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Das BASIC Programm kann etwas beschleunigt werden, indem die 
Parameterkontrolle übersprungen wird. Die Zeilennummer bei den 


GOSUB-Anweisungen müssen dann jeweils folgendermaßen geändert 


werden: 

BITON: GOSUB 11020 
BITOFF: GOSUB 12020 
GETBIT: GOSUB 13020 
WAIT: GOSUB 14020 


С Fehlersuche 

Anleitung zur schnellen Fehlersuche 

Bei Problemen mit dem Interface und den Modellen wird die folgende 
kurze Checkliste zum Erkennen von Fehlern in den meisten Fällen 
ausreichen: 


1. Der rote Stop-Schalter auf dem Interface soll nicht gedrückt sein. 


2. Das Interfacekabel muß korrekt am Interface und am Computer 
angebracht sein, vgl. "Anschließen des Interface". 


3. Der Stecker des Netzteils muß korrekt am Interface angebracht sein. 


4. Das Netzteil muß am Netz angeschlossen sein (die rote Kontrollampe 
über dem Stop-Schalter muB leuchten). 


5.  Funktionieren die Ausgänge 0-5? (Überprüfung mit einem LEGO 


Leuchtstein) 
6. Ist das Modell korrekt angeschlossen? 


7. Sind alle Anschlußkabel in Ordnung? 
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Erweiterte Anleitung zur Fehlersuche: 


Nachfolgend eine ausführliche Checkliste. Sie umfaßt folgende Teile: 


1 LEGO Interface A und Netzanschluß 

1:3 Test der Spannungsversorgung vom Netzteil 
1.2 Test des Permanentausganges des Interface 
$5.3 Test der Eingänge des Interface 

2 LEGO Interface A, Datenübertragung 

2.1 Start 


Schalten der Ausgänge 
2.8 Abfragen der Eingánge 


Ce а 
CHECKVERFAHREN: 
1.0 Untersuchung auf visuelle Defekte 


1.1 Test der Spannungsversorgung vom Netzteil 


ACHTUNG: Bei diesem Test soll der Permanentausgang des Interface (über dem Stop-Schalter) 
nicht belegt sein. 


AKTION TEST WENN JA 


Anschluß des Netzteils 
an das Interface A. 


Anschluß des Netzteils 
an das Netz. 


Leuchtet die rote Das Netzteil ist in Ist das Netzteil mit dem 
Kontrollampe über Ordnung. Netz verbunden? 


dem Stop-Schalter 
Wenn möglich: 


Test des Netzteils mit einem 
anderen Interface. 


Test des Interface mit einem 
anderen Netzteil. 


1.2 Test des Permanentausganges des Interface 


AKTION TEST WENN JA 


Ein LEGO Leuchtstein wird 
an den Permanentausgang 
angeschlossen. 


Leuchtet der Leuchtstein? Der Permanentausgang ist Test des Permanent- 


in Ordnung. ausganges mit einem 
anderen Leuchtstein. 


Test mit einem anderen 
LEGO Anschlußkabel. 


52; 


1.3 Test der Eingänge des Interface 
Testverfahren für die Eingänge 6 und 7: 


AKTION TEST WENN JA 


Der Optosensor wird 
an den Eingang 
angeschlossen. 


Ein gelber LECO Stein 
wird dicht vor der 
ovalen Öffnung des 
Optosensors hin- und 
herbewegt. 


Blinkt die grüne Eingangs- | Der Eingang und der Test mit einem anderen 

kontrollampe gleichzeitig Optosensor sind in LEGO Anschlußkabel. 

mit der Hin- und Herbe- Ordnung. 

wegung? Test des Eingangs mit 
einem anderen Optosensor. 


Test des Eingangs mit 
einem Leuchtstein 
(siehe Aktion Ч. ). 


Entferne den 
Optosensor. 


Ein Leuchtstein wird 
an den Eingang an- 
geschlossen. 

Der Leuchtstein muß 
in Ordnung sein. 
Dieses kann mit Hilfe 
des Permanentaus- 
ganges getestet 
werden. 


ца 

Leuchtet die grüne Ein- Weiter: Der Eingang ist 
gangskontrollampe beim Aktion 4 b. defekt. 
Anschluß des 

Leuchtsteins? 


4b 

Erlischt die grüne Der Eingang ist Der Eingang ist 
Eingangskontrollampe in Ordnung. defekt. 

beim Entfernen des 

Leuchtsteins? 


PS 


2.1 Start 


Der Computer wird 

gemäß den Anleitungen 
des Herstellers aufge- 
stellt und angeschlossen. 


Der Computer muß 
abgeschaltet sein. 


Das LEGO Interface A 
wird an den Computer 
angeschlossen. Das 
Netzteil wird an das 
Interface angeschlossen. 


Der Stop-Schalter auf 
dem Interface darf 
nicht gedrückt sein. 


Das Netzteil wird an 
das Netz angeschlossen. 


Der Computer wird 
eingeschaltet. 


Ist das Netzteil mit dem 
Netz verbunden? 


Leuchten sämtliche 
roten Kontrollampen an 
den Ausgängen? 


Die Kontrollampen an den 
Ausgängen sind in 
Ordnung. 


Test, ob der Stop-Schalter 
am Interface gedrückt ist. 
Er soll nicht gedrückt sein. 


Test, ob alle Anschlüsse 
korrekt sind. 


Wenn vorhanden: 


Test mit einem anderen 
Interface. 


Test mit einem anderen 
Interfacekabel. 


Test mit einem anderen 
Computer. 


6. Eingabe und Ausfüh- 
rung der Anweisungen: 
POKE 56579,63 

POKE 56577,0 


Weiter: Wenn vorhanden: 
Abschnitt 2.2 
"Schalten der 


Ausgänge". 


Werden alle Ausgänge 
ausgeschaltet? 


Test mit einem anderen 
Interfacekabel. 


Test mit einem anderen 
Interface. 


Test mit einem anderen 
Computer. 


EE 


2.2 Schalten der Ausgänge 


AKTION TEST WENN JA [wenn nen | 


Startverfahren wie 
unter Abschnitt 
2.1 "Start" 
beschrieben. 


Eingabe und Ausfüh- 
rung der Anweisung: 
POKE 56577,41 


Leuchten die Kontrollampen Wenn vorhanden: 
an den Ausgängen 0, 3 und 


5 auf? 


Datenübertragung zu den 
Ausgängen. 
Test mit einem anderen 
Interfacekabel. 


Eingabe und Ausfüh- 
rung der Anweisung: 
POKE 56577,22 


Leuchten die Kontrollampen Wenn vorhanden: 
an den Ausgängen 1, 2 


und 4 auf? 


Datenübertragung zu den 
Ausgängen. 
Test mit einem anderen 
Interface. 


Test mit einem anderen 
Computer. 


Die Ausgänge А, В, С 
werden jeder für sich 
mit einem LEGO Motor 
getestet. 


Eingabe und Ausfüh- 
rung der Anweisung: 
POKE 56577,42 


Test mit einem anderen 
LEGO Anschlußkabel. 


Weiter: 
Aktion 5. 


Startet der Motor, wenn 
er mit den Ausgängen 

A, B und C verbunden 
wird? 


Test mit einem anderen 
LEGO Motor. 


Ausgang defekt. 


5. Eingabe und Ausfüh- 
rung der Anweisung: 
POKE 56577,21 


Ändert der Motor die 
Drehrichtung? 


Ist ein Anschlußstecker 
in seiner Buchse am 
Motor oder am Interface 
gegenüber der Aktion 4 
"umgedreht" eingesteckt? 


Die Ausgänge sind in 
Ordnung. 


Die Ausgänge sind 
defekt. 


Eingabe und Ausfüh- 
rung der Anweisung: 
POKE 56577,0 

Der Motor wird 
ausgeschaltet. 
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2:3 Abfrage der Eingänge 


Startverfahren wie 
unter Abschnitt 2.1 
"Start" beschrieben. 


Test der Eingänge 
wie unter Abschnitt 
1.3 "Test der Ein- 
gänge des Interface" 
beschrieben. 


Ein LECO Leuchtstein 
wird an den Eingang 6 
und ein LEGO Leucht- 
stein an den Eingang 7 
angeschlossen. 


Eingabe und Ausfüh- 
rung der Anweisung: 
PRINT PEEK(56577) 

AND 192 


Erscheint die Zahl 192 Weiter: Test mit anderen LEGO 
auf dem Bildschirm? Aktion 4. Anschlußkabeln. 


Wenn vorhanden: 


Test mit einem anderen 
Interfacekabel. 


Test mit einem anderen 
Interface. 


Test mit einem anderen 
Computer. 


4. Die Leuchtsteine 
werden von den 
Eingängen 

6 und 7 entfernt. 


Eingabe und Ausfüh- 
rung der Anweisung: 
PRINT PEEK (56577) 
AND 192 


Erscheint die Zahl 0 auf Die Anschlußkabel und Wenn vorhanden: 
dem Bildschirm? die Eingänge sind in 

Ordnung. Test mit einem anderen 
Interfacekabel. 


Test mit einem anderen 
Interface. 


Test mit einem anderen 
Computer. 


kb 


BILAG А: COMAL 80 


8010 // end of user program Space 
8020 END 


8040 PROC init 

8050 portb:-256577 

8060 POKE 56579,63 
8070 POKE portb,0 

8080 ENDPROC init 


8100 PROC biton(num) 

8110 IF num<O OR num»5 THEN errhand(1) 
8120 РОКЕ portb,2tnum BITOR PEEK(portb) 
8130 ENDPROC biton 


8150 PROC bitoff (num) 

8160 IF num«0 OR num»5 THEN errhand(1) 

8170 POKE portb,PEEK (portb) BITAND (255-21num) 
8180 ENDPROC bitoff 


8200 FUNC getbit (num) 

8210 IF num<>6 AND num<>7 THEN errhand(2) 
8220 RETURN (PEEK(portb) BITAND 2tnum) =2Tnum 
8230 ENDFUNC getbit 


8250 PROC wait (tim) 

8260 IF tim<O THEN errhand(3) 
8270 | qt:-TIME«tim*60 

8280 . REPEAT 

8290 | UNTIL TIME at 

8300 ENDPROC wait 


8320 PROC errhand(erc) 

8330 IF erc-1 THEN PRINT "outputbito must be between 0 and 5" 
8340 IF erc=2 THEN PRINT "inputbits must be 6 or 7" 

8350 IF erc=3 THEN PRINT "waittime must be positive" 


8370 ENDPROC errhand 
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BILAG А, СВМ 64 BASIC 


1 БЕМ ІМІТ LINE 10000 
2 REM BITON LINE 11000 
3 REM BITOFF . 3 LINE 12000 
4 REM GETBIT LINE 13000 
5 REM WAIT LINE 14000 
6 REM ERRORHANDLING LINE 20000 
9940 END 

9950 REM 

9960 REM ---- 

9970 REM INIT 

9980 REM ---- 

9990 REM 


10000 P-56577 

10010 POKE 56579,63 
10020 POKE P,0 
10030 RETURN 


Ka 
o 
o 
о 
о 
5 
z 


10970 REM BITON PAR : NUM% 

10980 REM ----------------- 

10990 REM Р 

11000 IF М0М%2-0 AND NUMX«6 THEN GOTO 11020 
11010 ERC-1:GOTO 20000 

11020 POKE P,(2fNUM* OR PEEK(P)) 

11030 RETURN 


12000 IF NUM%>=0 AND NUM%<6 THEN СОТО 12020 
12010 ERC-1:GOTO 20000 

12020 POKE P,PEEK(P) AND (255-21NUM%) 

12030 RETURN 


12960 REM ----------------- 


13000 IF NUM%=6 OR NUM%=7 THEN GOTO 13020 
13010 ERC-2:GOTO 20000 

13020 YX-ABS((PEEK(P) AND 21NUMX) -21NUMX) 
13030 RETURN 

13950 REM 


13990 REM 

14000 IF TIM%>=0 THEN GOTO 14020 
14010 ERC-3:GOTO 20000 

14020 QT=-TIME+(TIM%*60) ^ 
14030 IF QT>TIME THEN GOTO 14030 
14040 RETURN 


19960 REM ------------- 
19980 REM ------------- 

20000 PRINT:PRINT"PARAMETER ERROR" 

20010 IF ERC-1 THEN PRINT "OUTPUTBITS MUST BE BETWEEN 0 AND 5" 
20020 IF ERC-2 THEN PRINT "INPUTBITS MUST BE 6 OR 7" 


20030 IF ERC-3 THEN PRINT "WAITTIME MUST BE POSITIVE" 
20040 END 
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